home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304D.ZIP;1 / EXBAS.ARJ / FGDOC / EXAMPLES / BASIC / 13-05.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-01-24  |  769 b   |  47 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. SetMemStatus& = SETMEM(-1*(64000+16))
  6.  
  7. NewMode = FGbestmode(320,200,2)
  8. IF NewMode < 0 OR NewMode = 12 THEN
  9.    PRINT "This program requires a 320 x 200 color graphics mode."
  10.    STOP
  11. END IF
  12. OldMode = FGgetmode
  13. FGsetmode NewMode
  14. Status = FGallocate(1)
  15. FGsethpage 1
  16.  
  17. FGsetcolor 9
  18. FGrect 0, 319, 0, 199
  19. FGsetcolor 15
  20. FGrect 132, 188, 50, 150
  21.  
  22. FGsetcolor 10
  23. FGmove 160, 67
  24. FGdraw 175, 107
  25. FGdraw 140, 82
  26. FGdraw 180, 82
  27. FGdraw 145, 107
  28. FGdraw 160, 67
  29. FGpaint 160, 77
  30. FGpaint 150, 87
  31. FGpaint 160, 87
  32. FGpaint 170, 87
  33. FGpaint 155, 97
  34. FGpaint 165, 97
  35.  
  36. WHILE INKEY$ = ""
  37.    FGwaitfor 1
  38.    FGscroll 136, 184, 50, 150, -4, 0
  39. WEND
  40. FGwaitkey
  41.  
  42. Status = FGfreepage(1)
  43. FGsetmode OldMode
  44. FGreset
  45.  
  46. END
  47.